The CICA Windows Explosion!/The CICA Windows Explosion! - Disc 2.iso/patches/ami301c.zip/FLWCURVE.SM$/FLWCURVE.SMM

INI File | 1993-05-19 | 29KB | 1,682 lines

[ver]
    4
[sty]
    _MACRO.STY
[files]
[charset]
    82
    ANSI (Windows, IBM CP 1252)
[revisions]
    0
[prn]
    Apple LaserWriter Plus
[port]
    LPT1:
[lang]
    1
[desc]
    Curves text in Ami Pro using Freelance




    737872261
    40
    731818190
    1744
    7
    0
    0
    0
    0






    1
[fopts]
    0
    1
    0
    0
[lnopts]
    2
    Body Text
    1
[docopts]
    5
    2
[GramStyle]

[ParaNum]
    1
[tag]
    Body Text
    2
    [fnt]
        Times New Roman
        200
        0
        16384
    [algn]
        1
        1
        216
        0
        0
    [spc]
        33
        273
        1
        0
        0
        1
        100
    [brk]
        4
    [line]
        8
        0
        1
        0
        1
        1
        1
        10
        10
        1
    [spec]
        0
        0

        0
        1
        1
        0
        16
        0
        0
    [nfmt]
        272
        1
        3
        .
        ,
        $
    Body Text
    0
    0
[tag]
    Body Single
    3
    [fnt]
        Times New Roman
        240
        0
        49152
    [algn]
        1
        1
        0
        0
        0
    [spc]
        33
        273
        1
        0
        0
        1
        100
    [brk]
        4
    [line]
        8
        0
        1
        0
        1
        1
        1
        10
        10
        1
    [spec]
        0
        0

        0
        1
        1
        0
        0
        0
        0
    [nfmt]
        280
        1
        2
        .
        ,
        $
    Body Single
    0
    0
[tag]
    Function
    4
    [fnt]
        Times New Roman
        240
        0
        16385
    [algn]
        1
        1
        0
        0
        0
    [spc]
        33
        244
        1
        0
        0
        1
        100
    [brk]
        68
    [line]
        8
        0
        1
        0
        1
        1
        1
        10
        10
        1
    [spec]
        0
        1

        0
        1
        1
        0
        0
        0
        0
    [nfmt]
        272
        1
        3
        .
        ,
        $
    Body Text
    0
    0
[tag]
    Outline2
    5
    [fnt]
        Times New Roman
        200
        0
        49152
    [algn]
        1
        1
        216
        0
        0
    [spc]
        33
        273
        1
        0
        0
        1
        100
    [brk]
        4
    [line]
        8
        0
        1
        0
        1
        1
        1
        10
        10
        1
    [spec]
        0
        2

        0
        1
        1
        0
        16
        0
        0
    [nfmt]
        272
        1
        3
        .
        ,
        $
    Outline2
    0
    0
[tag]
    Outline3
    6
    [fnt]
        Times New Roman
        200
        0
        49152
    [algn]
        1
        1
        216
        0
        0
    [spc]
        33
        273
        1
        0
        0
        1
        100
    [brk]
        4
    [line]
        8
        0
        1
        0
        1
        1
        1
        10
        10
        1
    [spec]
        0
        3

        0
        1
        1
        0
        16
        0
        0
    [nfmt]
        272
        1
        3
        .
        ,
        $
    Outline3
    0
    0
[tag]
    Outline4
    7
    [fnt]
        Times New Roman
        200
        0
        49152
    [algn]
        1
        1
        216
        0
        0
    [spc]
        33
        273
        1
        0
        0
        1
        100
    [brk]
        4
    [line]
        8
        0
        1
        0
        1
        1
        1
        10
        10
        1
    [spec]
        0
        4

        0
        1
        1
        0
        16
        0
        0
    [nfmt]
        272
        1
        3
        .
        ,
        $
    Outline4
    0
    0
[tag]
    Outline5
    8
    [fnt]
        Times New Roman
        200
        0
        16384
    [algn]
        1
        1
        216
        0
        0
    [spc]
        33
        273
        1
        0
        0
        1
        100
    [brk]
        4
    [line]
        8
        0
        1
        0
        1
        1
        1
        10
        10
        1
    [spec]
        0
        5

        0
        1
        1
        0
        16
        0
        0
    [nfmt]
        272
        1
        3
        .
        ,
        $
    Outline5
    0
    0
[l1]
    0
[edoc]
@Function@<:#284,9360>'declares & defines

@Outline2@<:#240,9360>'string defines, to be localized

@Outline3@<:#240,9360><:f200,2Times New Roman,255,0,0>define MyAppName    "Ami Pro Curved Text<:f><:f200,2Times New Roman,255,0,0>."<:f>

@Outline3@<:#240,9360><:f200,2Times New Roman,255,0,0>define CurvedTextDlgText    "Curved Text"

@Outline3@<:#240,9360><:f200,2Times New Roman,255,0,0>define CurvingStatusMsg    "Now curving {curvelen} characters.  This may take a moment."

@Outline3@<:#240,9360><:f200,2Times New Roman,255,0,0>define err_cantfindapp        "Unable to find Freelance for Windows."

@Outline3@<:#240,9360><:f200,2Times New Roman,255,0,0>define err_cantlaunchapp    "Unable to launch Freelance for Windows."

@Outline3@<:#240,9360><:f200,2Times New Roman,255,0,0>define err_notextshaded    "You must first shade some text."

@Outline3@<:#240,9360><:f200,2Times New Roman,255,0,0>define FLW_WINDOWMENU    "&Window"

@Outline3@<:#240,9360><:f200,2Times New Roman,255,0,0>define apptitle        "Freelance Graphics"

@Outline2@<:#240,9360>'string defines, not localized

@Outline3@<:#240,9360>define appclass    "flwapp"

@Outline3@<:#240,9360>define appmodule    "FLWMAIN"

@Outline3@<:#240,9360>define appname    "FLW"

@Outline3@<:#240,9360>define ERR_DIECLEANLY    -2

@Outline3@<:#240,9360>define FILE_ALREADYOPEN    1

@Outline3@<:#240,9360>define FILE_NOTOPEN        -1

@Outline3@<:#240,9360>define LotusAppSection    "Lotus Applications"

@Outline3@<:#240,9360>define LotusIniFile    "lotus.ini"

@Outline3@<:#240,9360>define orgfilename    "ONEORG.PRE"

@Outline3@<:#240,9360>define pasteformat    "Windows Metafile"

@Outline3@<:#240,9360>define salesmsgsmm    lotuspal.smm!salesmsg

@Outline3@<:#240,9360>define helpfile        "HELPPACK.HLP"

@Outline3@<:#240,9360>define helpnum    125

@Outline2@<:#240,9360>'private functions

@Outline3@<:#240,9360>declare box2(hdlg, id, val)

@Outline3@<:#240,9360>declare done()

@Outline3@<:#240,9360>declare onmenu(menu, item, casc)

@Outline3@<:#240,9360>declare freeglobals()

@Outline3@<:#240,9360>declare GetChildHandle(parentclass, childclass);

@Outline3@<:#240,9360>declare h_LoadLotusApp(Name, Module);

@Outline3@<:#240,9360>declare hideami(rect)

@Outline3@<:#240,9360>declare insertdata(hdlg, id, val)

@Outline3@<:#240,9360>define IsOKToRun(menuname)    GetInfo(217, 24, %1);

@Outline3@<:#240,9360>define MsgBox(msgtext)    Message(%1, myappname)

@Outline3@<:#240,9360>declare modframe()

@Outline3@<:#240,9360>declare newnow()

@Outline3@<:#240,9360>declare openfile()

@Outline3@<:#240,9360>declare setpagelayout()

@Outline3@<:#240,9360>declare showami(rect)

@Outline3@<:#240,9360>declare winproc(hdlg, id, val)

@Outline3@<:#240,9360>define WinHelp(hWnd, file, cmd, ptr)    DllCall("user,WinHelp,HHCHJ", %1, %2, %3, %4)

@Outline3@<:#240,9360>define HELP_CONTEXT    0x0001

@Outline3@<:#240,9360>define VK_F1            112

@Outline2@<:#240,9360>'api call defines

@Outline3@<:#480,9360>declare MyPostMessage(hwnd, msg, wparam, lparam)    'DllCall("User,PostMessage,HHHHJ",%1,%2,%3,%4)

@Outline3@<:#240,9360>Define EnableWindow() DllCall("user,EnableWindow,HHH", %1, %2)

@Outline3@<:#240,9360>Define FindWindow() DllCall("user,FindWindow,HCC", %1, %2)

@Outline3@<:#240,9360>Define GetActiveWindow() DllCall("user,GetActiveWindow,H")

@Outline3@<:#240,9360>Define GetClassName(hwnd, name, len) dllcall("user,GetClassName,HHCH", %1, %2, %3)

@Outline3@<:#240,9360>Define Getfocus() DllCall("user,GetFocus,H")

@Outline3@<:#240,9360>define GetMenu(HWND)    DllCall("user,GetMenu,HH", %1)

@Outline3@<:#240,9360>define GetMenuItemCount(HMENU)    DllCall("user,GetMenuItemCount,HH", %1)

@Outline3@<:#240,9360>define GetMenuItemID(HMENU, int)    DllCall("user,GetMenuItemID,LHH", %1, %2)

@Outline3@<:#480,9360>define GetMenuString(HMENU, WORD, LPSTR, int, WORD)    DllCall("user,GetMenuString,HHHFHH", %1, %2, %3, %4, %5)

@Outline3@<:#240,9360>Define GetModuleHandle() DllCall("kernel,GetModuleHandle,HC", %1)

@Outline3@<:#240,9360>define GetParent(hWnd) DllCall("user,GetParent,HH", %1)

@Outline3@<:#240,9360>define GetSubMenu(HMENU, int)    DllCall("user,GetSubMenu,HHH", %1, %2)

@Outline3@<:#240,9360>Define GetWindow(hwnd, cmd) dllcall("user,GetWindow,HHH", %1, %2)

@Outline3@<:#240,9360>DEFINE GetWindowrect()    DllCall("user,GetWindowRect,HHN",%1,%2)

@Outline3@<:#240,9360>Define GetWindowText(hwnd, lpsz, cbMax)    dllcall("user,GetWindowText,HHCH", %1, %2, %3)

@Outline3@<:#240,9360>define IsIconic(hWnd) DllCall("user,IsIconic,HH", %1)

@Outline3@<:#240,9360>define LoadCursor(hwnd, lpcursor)        DllCall("user,LoadCursor,HHC",%1, %2)

@Outline3@<:#240,9360>Define MoveWindow() DllCall("User,MoveWindow,HHHHHHA",%1,%2,%3,%4,%5,%6)

@Outline3@<:#480,9360>define PeekMessage(lpmsg, hwnd, uFilterFirst, uFilterLast, fuRemove)    DllCall("User,PostMessage,ACHHHH",%1,%2,%3,%4, %5)

@Outline3@<:#240,9360>Define PostMessage() DllCall("User,PostMessage,HHHHJ",%1,%2,%3,%4)

@Outline3@<:#240,9360>Define SendMessage(hwnd, message, wparam, lparao) Dllcall("user,SendMessage,JHHHJ", %1, %2, %3, %4)

@Outline3@<:#480,9360>Define SendMessageC(hwnd, message, wparam, lparao) Dllcall("user,SendMessage,HHHHC", %1, %2, %3, %4)

@Outline3@<:#240,9360>define SetCursor(hwnd)        DllCall("user,SetCursor,HH",%1)

@Outline3@<:#240,9360>Define SetFocus() DllCall("user,SetFocus,HH",%1)

@Outline3@<:#480,9360>define SetWindowPos(hwnd, hwndinsertafter, x, y, cx, cy, wflags) DllCall("user,SetWindowPos,HHHHHHHI", %1, %2, %3, %4, %5, %6, %7)

@Outline3@<:#240,9360>Define ShowWindow(hWnd, stuff) DllCall("user,ShowWindow,HHH", %1, %2)

@Outline2@<:#240,9360>'menu pick defines

@Outline3@<:#240,9360>define FLW_COPY        142

@Outline3@<:#240,9360>define FLW_CURVEDTEXT    307

@Outline3@<:#240,9360>define FLW_CURRENTPAGE    228

@Outline3@<:#240,9360>define FLW_EDITCLEAR    145

@Outline3@<:#240,9360>define FLW_INBW        269

@Outline3@<:#240,9360>define FLW_INCOLOR        270

@Outline3@<:#240,9360>define FLW_NEW        61

@Outline3@<:#240,9360>define FLW_NEWPAGE    241

@Outline3@<:#240,9360>define FLW_ORGCHART    5202

@Outline3@<:#240,9360>define FLW_OUTLINER    230

@Outline3@<:#240,9360>define FLW_PAGESORTER    229

@Outline3@<:#240,9360>define FLW_PASTE        144

@Outline3@<:#240,9360>define FLW_REMOVEPAGE    242

@Outline3@<:#240,9360>define FLW_SCREENSHOWRUN    481

@Outline3@<:#240,9360>define FLW_SELECTNONE    166

@Outline3@<:#240,9360>define FLW_SELECTALL    165

@Outline3@<:#240,9360>define FLW_SPEAKERNOTES    253

@Outline2@<:#240,9360>'api defines

@Outline3@<:#240,9360>Define GW_CHILD        5

@Outline3@<:#240,9360>Define GW_HWNDNEXT    2

@Outline3@<:#240,9360>define MF_BYPOSITION    0x0400

@Outline3@<:#240,9360>define NO_DUPS    0

@Outline3@<:#240,9360>define PM_NOREMOVE    0x0000

@Outline3@<:#240,9360>define SWP_NOMOVE        0x0002

@Outline3@<:#240,9360>define WM_COMMAND    0x0111

@Outline3@<:#240,9360>define WM_GETTEXT           0x000D

@Outline3@<:#240,9360>define WM_MDIMAXIMIZE    0x0225

@Outline3@<:#240,9360>Define WM_SETREDRAW            0x000B

@Function@<:#284,9360>function FLWcurve()

@Outline2@<:#240,9360>if GetOpenFileCount() << 1

@Outline2@<:#240,9360>    exit function

@Outline2@<:#240,9360>endif

@Outline2@<:#240,9360>TextToCurve=Curshade$()

@Outline2@<:#240,9360>rmac=GetRunningMacroFile$()

@Outline2@<:#240,9360>DlgKeyInterrupt(VK_F1, "{rmac}!helper")

@Outline2@<:#240,9360>filledit (8000, TextToCurve)

@Outline2@<:#240,9360>box=dialogbox(".", "curvetext")

@Outline2@<:#240,9360>if box = 0

@Outline2@<:#240,9360>    exit function

@Outline2@<:#240,9360>endif

@Outline2@<:#240,9360>TextToCurve=GetDialogField$(8000)

@Outline2@<:#240,9360>ClipboardWrite(TextToCurve, 1)

@Outline2@<:#240,9360>'if TextToCurve = ""

@Outline2@<:#240,9360>'    message(err_notextshaded, MyAppName)

@Outline2@<:#240,9360>'    exit function

@Outline2@<:#240,9360>'endif

@Outline2@<:#240,9360>curvelen=len(TextToCurve)

@Outline2@<:#240,9360>onerror endit

@Outline2@<:#240,9360>oncancel endit

@Outline2@<:#240,9360>ignorekeyboard(2)

@Outline2@<:#240,9360>dim rect(4)

@Outline2@<:#240,9360>focusnow=GetFocus()

@Outline2@<:#240,9360>hFLW = h_LoadLotusApp(appname, appmodule);

@Outline2@<:#240,9360>'pause(002)

@Outline2@<:#240,9360>'singlestep(1)

@Outline2@<:#240,9360>if hFLW = 0

@Outline2@<:#240,9360>    return 0

@Outline2@<:#240,9360>endif

@Outline2@<:#240,9360>rmac = getrunningmacrofile$()

@Outline2@<:#240,9360>'get handles to everything

@Outline3@<:#240,9360>hwndpro = findwindow("amiprownda", 0)

@Outline3@<:#240,9360>hIconBar = FindWindow("SmartIconBar", 0)

@Outline3@' PMM 5/19/93

@Outline3@' disable the iconbar

@Outline3@if isiconic(hFLW)

@Outline3@<:#240,9360>    appmaximize(appname)

@Outline3@<:#240,9360>endif

@Outline3@<+@><:#240,9360>pause(002)

@Outline2@<:#240,9360>dim size(4)

@Outline2@<:#240,9360>getwindowrect(hFLW, &size)

@Outline2@<:#240,9360>movewindow(hFLW, 0, -1160, 768, 80, 1)

@Outline2@<:#240,9360>openfile()

@Outline2@<:#240,9360>EnableWindow(hwndpro, 0)

@Outline2@EnableWindow(hIconBar, 0)

@Outline2@activateapp(appname)

@Outline2@<:#240,9360>'AppRestore(appname)

@Outline2@<:#240,9360>'send the menu picks

@Outline3@<+@><:I0,0,0,0><:S+-1><:#240,9360>PostMessage(hFLW, WM_COMMAND, FLW_CURRENTPAGE, "")

@Outline3@<+@><:I0,0,0,0><:S+-1><:#240,9360>PostMessage(hFLW, WM_COMMAND, FLW_SELECTALL, "")

@Outline3@<+@><:I0,0,0,0><:S+-1><:#240,9360>PostMessage(hFLW, WM_COMMAND, FLW_EDITCLEAR, "")

@Outline3@<+@><:I0,0,0,0><:S+-1><:#240,9360>PostMessage(hFLW, WM_COMMAND, FLW_SELECTNONE, "")

@Outline3@<+@><:I0,0,0,0><:S+-1><:#240,9360>PostMessage(hFLW, WM_COMMAND, FLW_PASTE, "")

@Outline3@<:#240,9360>statusbarmsg(CurvingStatusMsg)

@Outline3@<+@><:#240,9360>PostMessage(hFLW, WM_COMMAND, FLW_INBW, "")

@Outline3@<+@><:I0,0,0,0><:S+-1><:#240,9360>PostMessage(hFLW, WM_COMMAND, FLW_CURVEDTEXT, "")

@Outline4@<:I0,0,0,0><:S+-1><:#240,9360>pause(005)

@Outline4@<:#240,9360>defstr titletext;

@Outline4@<:#240,9360>while GetActiveWindow() != hflw

@Outline4@<:#240,9360>    hcancel=GetDlgItem(GetActiveWindow(), 2)

@Outline4@<:#240,9360>    hpreview=GetDlgItem(GetActiveWindow(), 10)

@Outline4@<:#240,9360>    GetWindowText(GetActiveWindow(), &titletext, 50)

@Outline4@<:#240,9360>    if titletext = CurvedTextDlgText

@Outline4@<:#240,9360>        EnableWindow(hcancel, 0)

@Outline4@<:I0,0,0,0><:S+-1><:#240,9360>        EnableWindow(hpreview, 0)

@Outline4@<:#240,9360>    endif

@Outline4@<:#240,9360>    pause(002)

@Outline4@<:#240,9360>wend

@Outline3@<:#240,9360>pause(005)

@Outline3@<+@><:I0,0,0,0><:S+-1><:#240,9360>pause(005)

@Outline3@<+@><:I0,0,0,0><:S+-1><:#240,9360>PostMessage(hFLW, WM_COMMAND, FLW_COPY, "")

@Outline3@<+@><:I0,0,0,0><:S+-1><:#240,9360>PostMessage(hFLW, WM_COMMAND, FLW_INCOLOR, "")

@Outline3@<+@><:I0,0,0,0><:S+-1><:#240,9360>sendkeys("<[>esc]")

@Outline2@<:#240,9360>pause(008)

@Outline2@<:#240,9360>if curshade$()

@Outline2@<:#240,9360>    type("<[>del]")    'get rid of selected text

@Outline2@<:#240,9360>endif

@Outline2@<:#240,9360>type("<[>esc]<[>esc]<[>esc]")    'if we're in something (like a frame) get us out.

@Outline2@<+@><:I0,0,0,0><:S+-1><:#240,9360>pastespecial(pasteformat)

@Outline2@<:#240,9360>FrameModInit( )

@Outline2@<:#240,9360>FrameModLines(0 1 1 0 16777215 0 0 0 0 0  )

@Outline2@<:#240,9360>FrameModType(536871040 0 ""   )

@Outline2@<:#240,9360>FrameModFinish( )

@Outline2@<+@><:#240,9360>endit:

@Outline2@<+@><:#240,9360>activateapp("")

@Outline2@<:#240,9360>cx = size(3) - size(1)

@Outline2@<:#240,9360>cy = size(4) - size(2)

@Outline2@<:#240,9360>movewindow(hFLW, size(1), size(2), cx, cy, 1)

@Outline2@<+@><:I0,0,0,0><:S+-1><:#240,9360>EnableWindow(hwndpro, 1)

@Outline2@<+@><:I0,0,0,0><:S+-1>EnableWindow(hIconBar, 1)    ' pmm 5/19/03 -  enable the icon bar

@Outline2@<+@><:I0,0,0,0><:S+-1><:#240,9360>SetFocus(focusnow)

@Outline2@<:I0,0,0,0><:S+-1><:#240,9360>statusbarmsg("")

@Outline2@<+@><:I0,0,0,0><:S+-1><:#240,9360>end function

@Function@<:#284,9360>function h_LoadLotusApp(name, module)

@Outline2@<:#240,9360>onerror endit

@Outline2@<:#240,9360>oncancel endit

@Outline2@<:#240,9360>hwnd =  findwindow(appclass, 0)

@Outline2@<:#240,9360>if hwnd = 0

@Outline2@<:#240,9360>    app = GetProfileString$(LotusAppSection, name, LotusIniFile)

@Outline2@<:#240,9360>    if app <<<;> ""

@Outline2@<:#240,9360>        offset1stspace=strchr(1, app, " ")

@Outline2@<:#240,9360>        app = strfield$(app, 1, " ")

@Outline2@<:#240,9360>        lotusappname=MID$(app, offset1stspace, len(app))    'DEZ

@Outline2@<:#240,9360>        'lotusappname = strfield$(app, 2, " ")

@Outline2@<:#240,9360>        if exec(app, "/q") << 32

@Outline2@<:#240,9360>            'MsgBox(err_cantlaunchapp)

@Outline2@<:#240,9360>            call salesmsgsmm(3)

@Outline2@<:#240,9360>            return 0

@Outline2@<:#240,9360>        endif

@Outline2@<:#240,9360>        pause(004)

@Outline2@<:#240,9360>    endif

@Outline2@<:#240,9360>    hwnd = findwindow(appclass, 0)

@Outline2@<:#240,9360>    if hwnd = 0

@Outline2@<:#240,9360>        call salesmsgsmm(3)

@Outline2@<:#240,9360>    endif

@Outline2@<:#240,9360>    return hwnd

@Outline2@<:#240,9360>endif

@Outline2@<:#240,9360>endit:

@Outline2@<:#240,9360>return hwnd

@Outline2@<:#240,9360>end function

@Function@<:#284,9360>function openfile()

@Outline2@<:#240,9360>'set variables

@Outline3@<:#240,9360>hflw=findwindow(appclass, 0)

@Outline3@<:#240,9360>isitopen=onmenu(FLW_WINDOWMENU, orgfilename, 0)

@Outline3@<:#240,9360>amidir=GetAmiDirectory$()

@Outline3@<:#240,9360>dde_openit = strcat$("<[><[>StdOpenDocument(", amidir, orgfilename, ")]")

@Outline3@<:#240,9360>dde_maxit = strcat$("<[><[>Maximize(", amidir, orgfilename, ")]")

@Outline2@<:#240,9360>ID = DDEInitiate(appname, "system")

@Outline2@<:#240,9360>if isitopen = FILE_ALREADYOPEN

@Outline2@<:#240,9360>    goto maxit

@Outline2@<:#240,9360>endif

@Outline2@<:#240,9360>res = DDEExecute(id, dde_openit) ' comm

@Outline2@<:#240,9360>maxit:

@Outline2@<:#240,9360>pause(003)

@Outline2@<:#240,9360>res = DDEExecute(id, dde_maxit) ' comm

@Outline2@<:#240,9360>if id <;> 0

@Outline2@<:#240,9360>    DDETerminate(id)

@Outline2@<:#240,9360>endif

@Outline2@<:#240,9360>'childfocus=GetFocus()

@Outline2@<:#240,9360>'mdiclient=GetParent(childfocus)

@Outline2@<:#240,9360>'AppSendMessage(mdiclient, WM_MDIMAXIMIZE, childfocus, "")

@Outline2@<:#240,9360>end function

@Function@<:#284,9360>function MyPostMessage(hwnd, msg, wparam, lparam)

@Outline2@<:#240,9360>hflw=findwindow(appclass, 0)

@Outline2@<:#240,9360>PostMessage(hwnd, msg, wparam, lparam)

@Outline2@<:#240,9360>pause(005)

@Outline2@<:#240,9360>while GetActiveWindow() != hflw

@Outline2@<:#240,9360>    pause(002)

@Outline2@<:#240,9360>wend

@Outline2@<:#240,9360>end function

@Function@<:#284,9360>function onmenu(menu, item, casc)

@Outline2@<:#240,9360>isthistheone=0

@Outline2@<:#240,9360>defstr menuitemnum;

@Outline2@<:#240,9360>defstr cascmenuitemnum;

@Outline2@<:#240,9360>hwnd=findwindow(appclass, 0)

@Outline2@<:#240,9360>hmenubar=GetMenu(hwnd)

@Outline2@<:#240,9360>'get handle to menu

@Outline3@<:#240,9360>nummenus=getmenuitemcount(hmenubar)

@Outline3@<:#240,9360>if nummenus << 1

@Outline3@<:#240,9360>    message ("Cannot locate the menu bar.")

@Outline3@<:#240,9360>    goto out

@Outline3@<:#240,9360>endif

@Outline3@<:#240,9360>for i = 0 to nummenus - 1

@Outline3@<:#240,9360>    GetMenuString(hmenubar, i, &isthistheone,  25, MF_BYPOSITION)

@Outline3@<:#240,9360>    menulen=len(menu)

@Outline3@<:#240,9360>    if ucase$(left$(isthistheone, menulen)) = ucase$(left$(menu, menulen))

@Outline3@<:#240,9360>        menunum=i

@Outline3@<:#240,9360>    endif

@Outline3@<:#240,9360>next

@Outline3@<:#240,9360>hmenu=getsubmenu(hmenubar, menunum)

@Outline2@<:#240,9360>'get position or handle of item

@Outline3@<:#240,9360>'get position of item

@Outline4@<:#240,9360>    extra = 0

@Outline4@<:#240,9360>    menuitemnum = 0

@Outline4@<:#240,9360>    cascmenuitemnum = 0

@Outline4@<:#240,9360>    nummenuitems=getmenuitemcount(hmenu)

@Outline4@<:#240,9360>    if nummenuitems << 1

@Outline4@<:#240,9360>        message ("Cannot locate the correct menu.")

@Outline4@<:#240,9360>        goto out

@Outline4@<:#240,9360>    endif

@Outline4@<:#240,9360>    for i= 0 to (nummenuitems - 1)

@Outline4@<:#240,9360>        GetMenuString(hmenu, i, &isthistheone,  25, MF_BYPOSITION)

@Outline4@<:#240,9360>        itemlen=len(item)

@Outline4@<:#240,9360>        length=len(isthistheone)

@Outline4@<:#240,9360>        if length << 1 and menuitemnum = 0

@Outline4@<:#240,9360>            extra=extra + 1

@Outline4@<:#240,9360>        endif

@Outline4@<:#240,9360>        text=ucase$(isthistheone)

@Outline4@<:#240,9360>        pattern=ucase$(item)

@Outline4@<:#240,9360>        'if ucase$(left$(item, itemlen)) = ucase$(left$(isthistheone, itemlen))

@Outline4@<:#240,9360>        if Instr(1, Text, Pattern) != 0

@Outline4@<:#240,9360>            return FILE_ALREADYOPEN

@Outline4@<:#240,9360>            menuitemnum=i

@Outline4@<:#240,9360>            break

@Outline4@<:#240,9360>        endif

@Outline4@<:#240,9360>    next

@Outline4@<:#240,9360>    'couldn't find it

@Outline4@<:#240,9360>    return FILE_NOTOPEN

@Outline4@<:#240,9360>    menuitemnum=menuitemnum - extra

@Outline3@<:#240,9360>'get handle to casc menu

@Outline4@<:#240,9360>numcascmenus=getmenuitemcount(hmenu)

@Outline4@<:#240,9360>if numcascmenus << 1

@Outline4@<:#240,9360>    goto out

@Outline4@<:#240,9360>endif

@Outline4@<:#240,9360>for i = 0 to numcascmenus - 1

@Outline4@<:#240,9360>    GetMenuString(hmenu, i, &isthistheone,  25, MF_BYPOSITION)

@Outline4@<:#240,9360>    cascmenulen=len(item)

@Outline4@<:#240,9360>    if ucase$(left$(isthistheone, cascmenulen)) = ucase$(left$(item, cascmenulen))

@Outline4@<:#240,9360>        cascmenunum=i

@Outline4@<:#240,9360>    endif

@Outline4@<:#240,9360>next

@Outline4@<:#240,9360>hcascmenu=getsubmenu(hmenu, cascmenunum)

@Outline3@<:#240,9360>'get position of casc item

@Outline4@<:#240,9360>    extra = 0

@Outline4@<:#240,9360>    numcascmenuitems=getmenuitemcount(hcascmenu)

@Outline4@<:#240,9360>    if numcascmenuitems << 1

@Outline4@<:#240,9360>        goto out

@Outline4@<:#240,9360>    endif

@Outline4@<:#240,9360>    for i= 0 to (numcascmenuitems - 1)

@Outline4@<:#240,9360>        GetMenuString(hcascmenu, i, &isthistheone,  25, MF_BYPOSITION)

@Outline4@<:#240,9360>        cascitemlen=len(casc)

@Outline4@<:#240,9360>        length=len(isthistheone)

@Outline4@<:#240,9360>        if length << 1 and cascmenuitemnum = 0

@Outline4@<:#240,9360>            extra=extra + 1

@Outline4@<:#240,9360>        endif

@Outline4@<:#240,9360>        if ucase$(left$(casc, cascitemlen)) = ucase$(left$(isthistheone, cascitemlen))

@Outline4@<:#240,9360>            cascmenuitemnum=i

@Outline4@<:#240,9360>            break

@Outline4@<:#240,9360>        endif

@Outline4@<:#240,9360>    next

@Outline4@<:#240,9360>    cascmenuitemnum=cascmenuitemnum - extra

@Outline2@<:#240,9360>'return numbers

@Outline3@<:#240,9360>out:

@Outline3@<:#240,9360>getdist=strcat$(menuitemnum, ", ", cascmenuitemnum, ",",  casc)

@Outline3@<:#240,9360>hourglass(0)

@Outline2@<:#240,9360>end function<:>

@Function@<:#284,9360>function helper()

@Outline2@<:#240,9360>prohWnd = FindWindow("AmiProWndA", 0)

@Outline2@<:#240,9360>fullhelpfile = strcat$(GetAmiDirectory$(), helpfile)

@Outline2@<:#240,9360>WinHelp (prohWnd, fullhelpfile, HELP_CONTEXT, helpnum)

@Outline2@<:#240,9360>end function

@Function@<:#284,9360>DIALOG    curvetext

@Outline2@<:#240,9360>-2134376448    4    52    64    190    44    ""    "AmiDialog"    "Curved Text"

@Outline2@<:#240,9360>FONT 8 "Helv"

@Outline2@<:#240,9360>6    20    126    12    8000    1350631552    "edit"    ""    0

@Outline2@<:#240,9360>144    4    40    14    1    1342373889    "button"    "OK"    0

@Outline2@<:#240,9360>144    22    40    14    2    1342373888    "button"    "Cancel"    0

@Outline2@<:#240,9360>6    6    114    10    1000    1342177280    "static"    "Type the text you wish to curve."    0

@Outline2@<:#240,9360>END DIALOG

>

[Embedded]
00023027
>
[macsum] 7
FLWcurve 0 0 16 101
h_LoadLotusApp 2266 2 5 195
openfile 2814 0 8 222
MyPostMessage 3238 4 2 244
onmenu 3468 3 24 252
helper 5723 0 3 338
curvetext 5890 0 -1 343
[macse]
14 FLWcurve
0 1050
13
5 1
18 5
11 00000061
6 0
15
9
0 24
13
8 1
0 802
13
8 2
0 47 112 "{2}!helper"
0 31 8000 "{1}"
0 26 "." "curvetext"
13
8 3
6 3
5 0
18 0
11 00000204
6 0
15
9
0 27 8000
13
8 1
0 1038 "{1}" 1
0 14 "{1}"
13
8 4
20 00001968
19 00001968
0 32 2
5 4
21 5 [X]
0 284 "user,GetFocus,H"
13
8 6
16 h_LoadLotusApp "FLW" "FLWMAIN"
13
8 7
6 7
5 0
18 0
11 00000429
5 0
15
9
0 802
13
8 2
0 284 "user,FindWindow,HCC" "amiprownda" 0
13
8 8
0 284 "user,FindWindow,HCC" "SmartIconBar" 0
13
8 9
0 284 "user,IsIconic,HH" "{7}"
13
11 00000616
0 1029 "FLW"
0 274 002
5 4
21 10 [X]
0 284 "user,GetWindowRect,HHN" "{7}" &10
0 284 "User,MoveWindow,HHHHHHA" "{7}" 0 -1160 768 80 1
16 openfile
0 284 "user,EnableWindow,HHH" "{8}" 0
0 284 "user,EnableWindow,HHH" "{9}" 0
0 38 "FLW"
0 284 "User,PostMessage,HHHHJ" "{7}" 273 228 ""
0 284 "User,PostMessage,HHHHJ" "{7}" 273 165 ""
0 284 "User,PostMessage,HHHHJ" "{7}" 273 145 ""
0 284 "User,PostMessage,HHHHJ" "{7}" 273 166 ""
0 284 "User,PostMessage,HHHHJ" "{7}" 273 144 ""
0 789 "Now curving {4} characters.  This may take a moment."
0 284 "User,PostMessage,HHHHJ" "{7}" 273 269 ""
0 284 "User,PostMessage,HHHHJ" "{7}" 273 307 ""
0 274 005
0 284 "user,GetActiveWindow,H"
13
6 7
18 1
11 00001663
0 284 "user,GetActiveWindow,H"
13
0 44 [X] 2
13
8 12
0 284 "user,GetActiveWindow,H"
13
0 44 [X] 10
13
8 13
0 284 "user,GetActiveWindow,H"
13
0 284 "user,GetWindowText,HHCH" [X] &11 50
6 11
7 "Curved Text"
18 0
11 00001639
0 284 "user,EnableWindow,HHH" "{12}" 0
0 284 "user,EnableWindow,HHH" "{13}" 0
0 274 002
10 00001260
0 274 005
0 274 005
0 284 "User,PostMessage,HHHHJ" "{7}" 273 142 ""
0 284 "User,PostMessage,HHHHJ" "{7}" 273 270 ""
0 36 "[27]"
0 274 008
0 24
13
11 00001842
0 6 "[46]"
0 6 "[27][27][27]"
2 588 1 "Windows Metafile"
2 421 1
2 416 1 0 1 1 0 16777215 0 0 0 0 0
2 417 1 536871040 0 ""
2 420 1
0 38 ""
5 3
22 10
5 1
22 10
3 1
8 14
5 4
22 10
5 2
22 10
3 1
8 15
5 1
22 10
5 2
22 10
0 284 "User,MoveWindow,HHHHHHA" "{7}" [X] [X] "{14}" "{15}" 1
0 284 "user,EnableWindow,HHH" "{8}" 1
0 284 "user,EnableWindow,HHH" "{9}" 1
0 284 "user,SetFocus,HH" "{6}"
0 789 ""
6 0
15
9
14 h_LoadLotusApp
20 00000524
19 00000524
0 284 "user,FindWindow,HCC" "flwapp" 0
13
8 3
6 3
5 0
18 0
11 00000524
0 286 "Lotus Applications" "{0}" "lotus.ini"
13
8 4
6 4
7 ""
18 1
11 00000406
0 13 1 "{4}" " "
13
8 5
0 20 "{4}" 1 " "
13
8 4
0 14 "{4}"
13
0 15 "{4}" "{5}" [X]
13
8 6
0 22 "{4}" "/q"
13
5 32
18 5
11 00000395
16 lotuspal.smm!salesmsg 3
5 0
15
9
0 274 004
0 284 "user,FindWindow,HCC" "flwapp" 0
13
8 3
6 3
5 0
18 0
11 00000512
16 lotuspal.smm!salesmsg 3
6 3
15
9
6 3
15
9
6 2
15
9
14 openfile
0 284 "user,FindWindow,HCC" "flwapp" 0
13
8 1
16 onmenu "&Window" "ONEORG.PRE" 0
13
8 2
0 798
13
8 3
0 16 "[[StdOpenDocument(" "{3}" "ONEORG.PRE" ")]"
13
8 4
0 16 "[[Maximize(" "{3}" "ONEORG.PRE" ")]"
13
8 5
0 8 "FLW" "system"
13
8 6
6 2
5 1
18 0
11 00000307
10 00000334
0 11 "{6}" "{4}"
13
8 7
0 274 003
0 11 "{6}" "{5}"
13
8 7
6 6
5 0
18 3
11 00000412
0 9 "{6}"
6 0
15
9
14 MyPostMessage
0 284 "user,FindWindow,HCC" "flwapp" 0
13
8 5
0 284 "User,PostMessage,HHHHJ" "{0}" "{1}" "{2}" "{3}"
0 274 005
0 284 "user,GetActiveWindow,H"
13
6 5
18 1
11 00000218
0 274 002
10 00000134
6 4
15
9
14 onmenu
5 0
8 4
0 284 "user,FindWindow,HCC" "flwapp" 0
13
8 7
0 284 "user,GetMenu,HH" "{7}"
13
8 8
0 284 "user,GetMenuItemCount,HH" "{8}"
13
8 9
6 9
5 1
18 5
11 00000236
0 3 "Cannot locate the menu bar."
10 00002191
5 0
8 10
6 9
5 1
3 1
6 10
18 2
12 00000335
10 00000536
5 1
6 10
3 0
8 10
10 00000247
0 284 "user,GetMenuString,HHHFHH" "{8}" "{10}" &4 25 1024
0 14 "{0}"
13
8 11
0 806 "{4}" "{11}"
13
0 18 [X]
13
0 806 "{0}" "{11}"
13
0 18 [X]
13
18 0
11 00000523
6 10
8 12
10 00000300
0 284 "user,GetSubMenu,HHH" "{8}" "{12}"
13
8 13
5 0
8 14
5 0
8 5
5 0
8 6
0 284 "user,GetMenuItemCount,HH" "{13}"
13
8 15
6 15
5 1
18 5
11 00000752
0 3 "Cannot locate the correct menu."
10 00002191
5 0
8 10
6 15
5 1
3 1
6 10
18 2
12 00000852
10 00001173
5 1
6 10
3 0
8 10
10 00000763
0 284 "user,GetMenuString,HHHFHH" "{13}" "{10}" &4 25 1024
0 14 "{1}"
13
8 16
0 14 "{4}"
13
8 17
6 17
5 1
18 5
6 5
5 0
18 0
1 1
11 00001029
6 14
5 1
3 0
8 14
0 18 "{4}"
13
8 18
0 18 "{1}"
13
8 19
0 808 1 "{18}" "{19}"
13
5 0
18 1
11 00001160
5 1
15
9
6 10
8 5
10 00001173
10 00000817
5 -1
15
9
6 5
6 14
3 1
8 5
0 284 "user,GetMenuItemCount,HH" "{13}"
13
8 20
6 20
5 1
18 5
11 00001301
10 00002191
5 0
8 10
6 20
5 1
3 1
6 10
18 2
12 00001401
10 00001603
5 1
6 10
3 0
8 10
10 00001312
0 284 "user,GetMenuString,HHHFHH" "{13}" "{10}" &4 25 1024
0 14 "{1}"
13
8 21
0 806 "{4}" "{21}"
13
0 18 [X]
13
0 806 "{1}" "{21}"
13
0 18 [X]
13
18 0
11 00001590
6 10
8 22
10 00001366
0 284 "user,GetSubMenu,HHH" "{13}" "{22}"
13
8 23
5 0
8 14
0 284 "user,GetMenuItemCount,HH" "{23}"
13
8 24
6 24
5 1
18 5
11 00001761
10 00002191
5 0
8 10
6 24
5 1
3 1
6 10
18 2
12 00001861
10 00002170
5 1
6 10
3 0
8 10
10 00001772
0 284 "user,GetMenuString,HHHFHH" "{23}" "{10}" &4 25 1024
0 14 "{2}"
13
8 25
0 14 "{4}"
13
8 17
6 17
5 1
18 5
6 6
5 0
18 0
1 1
11 00002038
6 14
5 1
3 0
8 14
0 806 "{2}" "{25}"
13
0 18 [X]
13
0 806 "{4}" "{25}"
13
0 18 [X]
13
18 0
11 00002157
6 10
8 6
10 00002170
10 00001826
6 6
6 14
3 1
8 6
0 16 "{5}" ", " "{6}" "," "{2}"
13
8 26
0 296 0
6 3
15
9
14 helper
0 284 "user,FindWindow,HCC" "AmiProWndA" 0
13
8 1
0 798
13
0 16 [X] "HELPPACK.HLP"
13
8 2
0 284 "user,WinHelp,HHCHJ" "{1}" "{2}" 1 125
6 0
15
9
DIALOG curvetext
-2134376448 4 52 64 190 44 "" "AmiDialog" "Curved Text"
FONT 8 "Helv"
6 20 126 12 8000 1350631552 "edit" "" 0
144 4 40 14 1 1342373889 "button" "OK" 0
144 22 40 14 2 1342373888 "button" "Cancel" 0
6 6 114 10 1000 1342177280 "static" "Type the text you wish to curve." 0
00023052